home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / demos / mcademo2.zip / HEATTRAN.MCD / HEATTRAN.MCD
Text File  |  1991-06-26  |  7KB  |  362 lines
  1. .MCD 30001 1 74
  2. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  3. .CMD SET ORIGIN 0
  4. .CMD SET TOL 0.001000000000000
  5. .CMD SET PRNCOLWIDTH 8
  6. .CMD SET PRNPRECISION 4
  7. .CMD PRINT_SETUP 1.200000 0
  8. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  9. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  10. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  11. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  12. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  13. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  14. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  15. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  16. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  17. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  18. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  19. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  20. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  21. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  22. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  23. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  24. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  25. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  26. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  27. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  28. .CMD UNITS U=3
  29. .TXT 2 2 0 0
  30. C a445,523,95
  31. {\rtf1\ansi \deff0
  32. {\fonttbl
  33. {\f0\fnil Helv;}
  34. {\f1\fnil Courier;}
  35. }
  36. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  37. \fs24 \b \i \ulnone HEAT TRANSFER -- FLAT
  38.  WALL WITH TWO LAYERS}{}}
  39. }
  40. .TXT 3 2 0 0
  41. C a408,439,38
  42. {\rtf1\ansi \deff0
  43. {\fonttbl
  44. {\f0\fnil Helv;}
  45. {\f1\fnil Courier;}
  46. }
  47. {\plain {}{First, define some extra units:}{}}
  48. }
  49. .EQN 1 26 0 0
  50. J~0.07376*ft*lbf
  51. .EQN 1 17 0 0
  52. Btu~20.031*ft*(lbf)/(sec)
  53. .EQN 2 -32 0 0
  54. degF~1
  55. .TXT 0 14 0 0
  56. C a200,202,74
  57. {\rtf1\ansi \deff0
  58. {\fonttbl
  59. {\f0\fnil Helv;}
  60. {\f1\fnil Courier;}
  61. }
  62. {\plain {}{(for convenience, define Fahrenheit
  63.  degree as dimensionless unit)}{}}
  64. }
  65. .EQN 1 -25 0 0
  66. W~(J)/(sec)
  67. .EQN 7 -1 0 0
  68. {3}s~1.713*(10)^(-9)*(Btu)/((ft)^(2)*hr*degF)
  69. .TXT 0 26 0 0
  70. C a216,218,34
  71. {\rtf1\ansi \deff0
  72. {\fonttbl
  73. {\f0\fnil Helv;}
  74. {\f1\fnil Courier;}
  75. }
  76. {\plain {}{(Stefan-Boltzmann constant)}{}}
  77. }
  78. .TXT 6 -25 0 0
  79. C a176,178,29
  80. {\rtf1\ansi \deff0
  81. {\fonttbl
  82. {\f0\fnil Helv;}
  83. {\f1\fnil Courier;}
  84. }
  85. {\plain {}{Parameters of problem:}{}}
  86. }
  87. .EQN 0 24 0 0
  88. Area:25*(ft)^(2)
  89. .TXT 0 15 0 0
  90. C a104,106,20
  91. {\rtf1\ansi \deff0
  92. {\fonttbl
  93. {\f0\fnil Helv;}
  94. {\f1\fnil Courier;}
  95. }
  96. {\plain {}{... wall area}{}}
  97. }
  98. .TXT 5 -39 0 0
  99. C a208,210,81
  100. {\rtf1\ansi \deff0
  101. {\fonttbl
  102. {\f0\fnil Helv;}
  103. {\f1\fnil Courier;}
  104. }
  105. {\plain {}{\f0 \fs20 \b0 \i0 \ul }{}{\f0 
  106.  \fs20 \b0 \i0 \ul First layer of wall: 
  107. wood}{}}
  108. }
  109. .EQN 5 -3 0 0
  110. t1:.25*in
  111. .TXT 0 13 0 0
  112. C a104,106,20
  113. {\rtf1\ansi \deff0
  114. {\fonttbl
  115. {\f0\fnil Helv;}
  116. {\f1\fnil Courier;}
  117. }
  118. {\plain {}{... thickness}{}}
  119. }
  120. .EQN 1 14 0 0
  121. h1:4.1*(Btu)/(hr*(ft)^(2)*degF)
  122. .TXT 0 20 0 0
  123. C a224,226,35
  124. {\rtf1\ansi \deff0
  125. {\fonttbl
  126. {\f0\fnil Helv;}
  127. {\f1\fnil Courier;}
  128. }
  129. {\plain {}{... inside convection coeff.}{}}
  130. }
  131. .EQN 5 -47 0 0
  132. k1:0.06*(Btu)/(hr*ft*degF)
  133. .TXT 1 19 0 0
  134. C a272,274,41
  135. {\rtf1\ansi \deff0
  136. {\fonttbl
  137. {\f0\fnil Helv;}
  138. {\f1\fnil Courier;}
  139. }
  140. {\plain {}{... conductive coefficient of
  141.  wood}{}}
  142. }
  143. .EQN 5 -19 0 0
  144. T0:75*degF
  145. .TXT 0 19 0 0
  146. C a240,242,37
  147. {\rtf1\ansi \deff0
  148. {\fonttbl
  149. {\f0\fnil Helv;}
  150. {\f1\fnil Courier;}
  151. }
  152. {\plain {}{... maximum inside temperature}{}}
  153. }
  154. .TXT 5 -15 0 0
  155. C a344,346,98
  156. {\rtf1\ansi \deff0
  157. {\fonttbl
  158. {\f0\fnil Helv;}
  159. {\f1\fnil Courier;}
  160. }
  161. {\plain {}{\f0 \fs20 \b0 \i0 \ul Second 
  162. layer of wall: rock-wool insulation}{}{\f1 
  163.  \fs20 \b0 \i0 \ul }{}}
  164. }
  165. .EQN 4 -4 0 0
  166. t2:.25*in
  167. .TXT 0 12 0 0
  168. C a104,106,20
  169. {\rtf1\ansi \deff0
  170. {\fonttbl
  171. {\f0\fnil Helv;}
  172. {\f1\fnil Courier;}
  173. }
  174. {\plain {}{... thickness}{}}
  175. }
  176. .TXT 0 31 0 0
  177. C a232,234,36
  178. {\rtf1\ansi \deff0
  179. {\fonttbl
  180. {\f0\fnil Helv;}
  181. {\f1\fnil Courier;}
  182. }
  183. {\plain {}{... outside convection coeff.}{}}
  184. }
  185. .EQN 1 -20 0 0
  186. h2:21.8*(Btu)/(hr*(ft)^(2)*degF)
  187. .EQN 5 -23 0 0
  188. k2:0.017*(Btu)/(hr*ft*degF)
  189. .TXT 0 20 0 0
  190. C a240,242,50
  191. {\rtf1\ansi \deff0
  192. {\fonttbl
  193. {\f0\fnil Helv;}
  194. {\f1\fnil Courier;}
  195. }
  196. {\plain {}{... conductive coefficient of
  197.      rock-wool}{}}
  198. }
  199. .TXT 5 0 0 0
  200. C a248,250,38
  201. {\rtf1\ansi \deff0
  202. {\fonttbl
  203. {\f0\fnil Helv;}
  204. {\f1\fnil Courier;}
  205. }
  206. {\plain {}{... minimum outside temperature}{}}
  207. }
  208. .EQN 1 -20 0 0
  209. T4:-20*degF
  210. .TXT 4 0 0 0
  211. C a152,154,26
  212. {\rtf1\ansi \deff0
  213. {\fonttbl
  214. {\f0\fnil Helv;}
  215. {\f1\fnil Courier;}
  216. }
  217. {\plain {}{Compute resistances}{}}
  218. }
  219. .TXT 0 34 0 0
  220. C a243,276,52
  221. {\rtf1\ansi \deff0
  222. {\fonttbl
  223. {\f0\fnil Helv;}
  224. {\f1\fnil Courier;}
  225. }
  226. {\plain {}{... convective resistance,   
  227.   inside surface}{}}
  228. }
  229. .EQN 1 -14 0 0
  230. Rh1:(1)/(h1*Area)
  231. .EQN 5 -20 0 0
  232. Rk1:(t1)/(k1*Area)
  233. .TXT 0 16 0 0
  234. C a229,286,50
  235. {\rtf1\ansi \deff0
  236. {\fonttbl
  237. {\f0\fnil Helv;}
  238. {\f1\fnil Courier;}
  239. }
  240. {\plain {}{... conductive resistance,   
  241.   inside layer}{}}
  242. }
  243. .TXT 6 0 0 0
  244. C a237,297,51
  245. {\rtf1\ansi \deff0
  246. {\fonttbl
  247. {\f0\fnil Helv;}
  248. {\f1\fnil Courier;}
  249. }
  250. {\plain {}{... conductive resistance,   
  251.   outside layer}{}}
  252. }
  253. .EQN 1 -16 0 0
  254. Rk2:(t2)/(k2*Area)
  255. .TXT 6 17 0 0
  256. C a237,289,51
  257. {\rtf1\ansi \deff0
  258. {\fonttbl
  259. {\f0\fnil Helv;}
  260. {\f1\fnil Courier;}
  261. }
  262. {\plain {}{... convective resistance,   
  263.   outside layer}{}}
  264. }
  265. .EQN 1 -17 0 0
  266. Rh2:(1)/(h2*Area)
  267. .TXT 5 23 0 0
  268. C a160,162,27
  269. {\rtf1\ansi \deff0
  270. {\fonttbl
  271. {\f0\fnil Helv;}
  272. {\f1\fnil Courier;}
  273. }
  274. {\plain {}{... total resistance}{}}
  275. }
  276. .EQN 1 -23 0 0
  277. Rtot:Rh1+Rk1+Rk2+Rh2
  278. .TXT 5 0 0 0
  279. C a184,186,30
  280. {\rtf1\ansi \deff0
  281. {\fonttbl
  282. {\f0\fnil Helv;}
  283. {\f1\fnil Courier;}
  284. }
  285. {\plain {}{Heat flow, temperatures}{}}
  286. }
  287. .TXT 1 47 0 0
  288. C a200,202,64
  289. {\rtf1\ansi \deff0
  290. {\fonttbl
  291. {\f0\fnil Helv;}
  292. {\f1\fnil Courier;}
  293. }
  294. {\plain {}{... heat flow at time of  maximum
  295.  temperature difference}{}}
  296. }
  297. .EQN 2 -36 0 0
  298. Q:(T0-T4)/(Rtot)
  299. .EQN 0 16 0 0
  300. Q=?(Btu)/(hr)
  301. .EQN 5 -1 0 0
  302. T0=?degF
  303. .TXT 0 21 0 0
  304. C a240,242,37
  305. {\rtf1\ansi \deff0
  306. {\fonttbl
  307. {\f0\fnil Helv;}
  308. {\f1\fnil Courier;}
  309. }
  310. {\plain {}{... inside temperature (given)}{}}
  311. }
  312. .EQN 4 -44 0 0
  313. T1:T0-Q*Rh1
  314. .EQN 0 23 0 0
  315. T1=?degF
  316. .TXT 0 21 0 0
  317. C a240,242,37
  318. {\rtf1\ansi \deff0
  319. {\fonttbl
  320. {\f0\fnil Helv;}
  321. {\f1\fnil Courier;}
  322. }
  323. {\plain {}{... temperature of inside wall}{}}
  324. }
  325. .EQN 4 -44 0 0
  326. T2:T1-Q*Rk1
  327. .EQN 0 23 0 0
  328. T2=?degF
  329. .TXT 0 21 0 0
  330. C a240,242,37
  331. {\rtf1\ansi \deff0
  332. {\fonttbl
  333. {\f0\fnil Helv;}
  334. {\f1\fnil Courier;}
  335. }
  336. {\plain {}{... temperature between layers}{}}
  337. }
  338. .EQN 4 -44 0 0
  339. T3:T2-Q*Rk2
  340. .EQN 0 23 0 0
  341. T3=?degF
  342. .TXT 0 21 0 0
  343. C a248,250,38
  344. {\rtf1\ansi \deff0
  345. {\fonttbl
  346. {\f0\fnil Helv;}
  347. {\f1\fnil Courier;}
  348. }
  349. {\plain {}{... temperature of outside wall}{}}
  350. }
  351. .EQN 4 -21 0 0
  352. T4=?degF
  353. .TXT 0 21 0 0
  354. C a248,250,38
  355. {\rtf1\ansi \deff0
  356. {\fonttbl
  357. {\f0\fnil Helv;}
  358. {\f1\fnil Courier;}
  359. }
  360. {\plain {}{... outside temperature (given)}{}}
  361. }
  362.